subroutine calclarge(r1, r2, t1, t2, iabci, iabcd, icore)
!use common
use mod_iop
use mod_size
use mod_orbit
use mod_ioff 
real*8, intent(in) :: r1(*), r2(*), t1(*), t2(*)
real*8, intent(in) :: iabci(*), iabcd(*), icore(*)
!
real*8 tt(20), rt(20)
call r1ai_t2efmi_iefam(r1, t2, iabci, icore, -0.5d0)
!---------------------------------------------------------
call effectt2(t2, t1,  icore, 1.d0, no, nv)
call r2abij_t2efij_iefab(r2, t2, iabcd, icore, 0.5d0)
!------------------------------------------------------------
call r2abij_t2efij_t1bm_iefam(r2, t2, t1, iabci, icore, -0.5d0)
call effectt2(t2, t1,  icore, -1.d0, no, nv)
!------
call r2abij_t1ei_iabej(r2, t1, iabci, icore, 1.d0)
!
return
end
